(FILECREATED "14-Apr-80 16:35:44" <PROLOG>QLOGASS..3 5033   

     changes to:  QLOGASSFNS

     previous date: "14-Apr-80 03:10:54" <PROLOG>QLOGASS..2)


(PRETTYCOMPRINT QLOGASSCOMS)

(RPAQQ QLOGASSCOMS ((FNS * QLOGASSFNS)
	(ADDVARS * QLOGASSBREAKMACROS)
	(LISPXMACROS * QLOGASSLISPXMACROS)
	(ADVICE * QLOGASSADVICE)
	(FILEPKGCOMS * QLOGASSFILEPKGCOMS)
	(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
		  (ADDVARS (NLAMA MA)
			   (NLAML PPP1 PPP HELL EDITQ AZ AA)
			   (LAMA)))))

(RPAQQ QLOGASSFNS (AA AZ CL EDITQ HELL MA <= QLOGONLY SHOWSTACK))
(DEFINEQ

(AA
  (NLAMBDA (KFN)                                (* edited: 
						" 4-Mar-80 14:34")
    (/ADDPROP (CAAR KFN)
	      (QUOTE PEXPR)
	      KFN T)
    (OR (GETPROP (CAAR KFN)
		 (QUOTE EXPR))
	(GETD (CAAR KFN))
	(/PUTD (CAAR KFN)
	       (SUBST (CAAR KFN)
		      (QUOTE DUMMY)
		      (QUOTE (NLAMBDA L (+GOAL+ L (QUOTE DUMMY)))))))
    (MARKASCHANGED (CAAR KFN)
		   (QUOTE FNS))))

(AZ
  (NLAMBDA (KFN)                                (* edited: 
						" 4-Mar-80 14:37")
    (/ADDPROP (CAAR KFN)
	      (QUOTE PEXPR)
	      KFN)
    (OR (GETPROP (CAAR KFN)
		 (QUOTE EXPR))
	(GETD (CAAR KFN))
	(/PUTD (CAAR KFN)
	       (SUBST (CAAR KFN)
		      (QUOTE DUMMY)
		      (QUOTE (NLAMBDA L (+GOAL+ L (QUOTE DUMMY)))))))
    (MARKASCHANGED (CAAR KFN)
		   (QUOTE FNS))))

(CL
  (LAMBDA (EXPR CLO)
    (GV.BND (GV.SLT+CHECK EXPR CLO))))

(EDITQ
  (NLAMBDA (FN C)                               (* edited: 
						" 4-Mar-80 16:27")
    (EDITE (GETPROP (SETQ FN (FNCHECK FN))
		    (QUOTE PEXPR))
	   C)
    (MARKASCHANGED FN (QUOTE FNS))))

(HELL
  (NLAMBDA (LS)                                 (* edited: 
						"16-Mar-80 23:24")
    (for F in LS do (PPP1 F))))

(MA
  (NLAMBDA KFNS                                 (* edited: 
						"23-Feb-80 00:23")
    (for F in KFNS do (APPLY* (QUOTE AZ)
			      F)
       finally (RETURN (CAAR F)))))

(<=
  (LAMBDA NIL                                   (* edited: 
						"12-Apr-80 22:20")
    (for ARG in L do (PRIN1 ARG)
		     (PRIN1 (QUOTE % <=% ))
		     (PRINT (LBFORM ARG CLOSURE)))))

(QLOGONLY
  (LAMBDA (X)
    (NOT (GETPROP X (QUOTE PEXPR)))))

(SHOWSTACK
  (LAMBDA (STAK)                                (* edited: 
						"22-Mar-80 16:15")
    (for ELT in STAK do (PRINT (CAR ELT)))))
)

(RPAQQ QLOGASSBREAKMACROS ((BREAKMACROS (OF (APPLY* (QUOTE PPP)
						    (STKNAME LASTPOS)))
					(FROM (PRINT PROC#))
					(DOR (SHOWSTACK DYNORSTACK#))
					(DORV (PRINTDEF DYNORSTACK# NIL 
							NIL T)
					      (TERPRI))
					(LOR (SHOWSTACK *ORSTACK*))
					(LORV (PRINTDEF *ORSTACK* NIL 
							NIL T)
					      (TERPRI))
					(AND ???)
					(FAIL (RETFROM (STKNAME LASTPOS)
						       (QUOTE FAILURE)))
					(<= (<= (STKNAME LASTPOS)))
					(BT< (BAKTRACE LASTPOS NIL
						       (QUOTE QLOGONLY)
						       0 T))
					(BTV< (BAKTRACE LASTPOS NIL
							(QUOTE QLOGONLY)
							1 T)))))

(ADDTOVAR BREAKMACROS (OF (APPLY* (QUOTE PPP)
				  (STKNAME LASTPOS)))
		      (FROM (PRINT PROC#))
		      (DOR (SHOWSTACK DYNORSTACK#))
		      (DORV (PRINTDEF DYNORSTACK# NIL NIL T)
			    (TERPRI))
		      (LOR (SHOWSTACK *ORSTACK*))
		      (LORV (PRINTDEF *ORSTACK* NIL NIL T)
			    (TERPRI))
		      (AND ???)
		      (FAIL (RETFROM (STKNAME LASTPOS)
				     (QUOTE FAILURE)))
		      (<= (<= (STKNAME LASTPOS)))
		      (BT< (BAKTRACE LASTPOS NIL (QUOTE QLOGONLY)
				     0 T))
		      (BTV< (BAKTRACE LASTPOS NIL (QUOTE QLOGONLY)
				      1 T)))

(RPAQQ QLOGASSLISPXMACROS (EDITQ PPP (APPLY (QUOTE PPP)
					    LISPXLINE)))

(ADDTOVAR LISPXMACROS (EDITQ (APPLY (QUOTE EDITQ)
				    LISPXLINE))
		      (PPP (APPLY (QUOTE PPP)
				  LISPXLINE)))

(RPAQQ QLOGASSADVICE (PP PRINTLEVEL))

(PUTPROPS PP READVICE (NIL (AROUND NIL (COND ((GETPROP X (QUOTE PEXPR))
					      (APPLY* (QUOTE PPP)
						      X))
					     (T *)))))

(PUTPROPS PRINTLEVEL READVICE (NIL (BEFORE NIL (PROG2 (SETQ U 4)
						      (SETQ V -1)))))

(RPAQQ QLOGASSFILEPKGCOMS (QFNS))
(FILEPKGCOM (QUOTE QFNS)
	    (QUOTE MACRO)
	    (QUOTE (L (E (TERPRI)
			 (PRIN1 "(MA")
			 (TERPRI))
		      (P * (HELL L))
		      (E (PRIN1 ")")
			 (TERPRI)))))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA MA)

(ADDTOVAR NLAML PPP1 PPP HELL EDITQ AZ AA)

(ADDTOVAR LAMA )
)
(PRETTYCOMPRINT QLOGASSCOMS)

(RPAQQ QLOGASSCOMS ((FNS * QLOGASSFNS)
		    (ADDVARS * QLOGASSBREAKMACROS)
		    (LISPXMACROS * QLOGASSLISPXMACROS)
		    (ADVICE * QLOGASSADVICE)
		    (FILEPKGCOMS * QLOGASSFILEPKGCOMS)
		    (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
			      COMPILERVARS
			      (ADDVARS (NLAMA MA)
				       (NLAML HELL EDITQ AZ AA)
				       (LAMA)))))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA MA)

(ADDTOVAR NLAML HELL EDITQ AZ AA)

(ADDTOVAR LAMA )
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (584 2405 (AA 596 . 995) (AZ 999 . 1396) (CL 1400 . 1465) 
(EDITQ 1469 . 1674) (HELL 1678 . 1803) (MA 1807 . 1989) (<= 1993 . 2188)
 (QLOGONLY 2192 . 2255) (SHOWSTACK 2259 . 2402)))))
STOP